﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class LstsaldosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As LstsaldosBE
        Dim tmpLstsaldos As LstsaldosBE = New LstsaldosBE()
        Try
            With tmpLstsaldos
                .Abonos = convertDTFromDb.ConvertDecimal(dr.Item("Abonos"))
                .Cargos = convertDTFromDb.ConvertDecimal(dr.Item("Cargos"))
                .Cuenta = convertDTFromDb.ConvertString(dr.Item("Cuenta"))
                .Moneda = convertDTFromDb.ConvertString(dr.Item("Moneda"))
                .MovD = convertDTFromDb.ConvertDecimal(dr.Item("MovD"))
                .SaldoA = convertDTFromDb.ConvertDecimal(dr.Item("SaldoA"))
                .SaldoC = convertDTFromDb.ConvertDecimal(dr.Item("SaldoC"))
                .SaldoI = convertDTFromDb.ConvertDecimal(dr.Item("SaldoI"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
            End With
            Return tmpLstsaldos
        Catch ex As Exception
            Throw
        Finally
            tmpLstsaldos = Nothing
        End Try
    End Function
End Class
